(terminal-map): Define switch-frame.

diff --git a/lisp/terminal.el b/lisp/terminal.el
index 33996e4bdeeaa27a7a3cc808f47390480ac6c7d1..7a9235f36ee3358f97ebdba6aeb3c0ff2f491d4b 100644 (file)
--- a/lisp/terminal.el
+++ b/lisp/terminal.el
@@ -77,6 +77,7 @@ performance.")
     nil
   (let ((map (make-sparse-keymap)))
     (define-key map [t] 'te-pass-through)
+    (define-key map [switch-frame] 'handle-switch-frame)
     (define-key map "\e" terminal-meta-map)
     ;(define-key map "\C-l"
     ;  '(lambda () (interactive) (te-pass-through) (redraw-display)))